unit U_CariAktar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Buttons, cxStyles, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGrid, ExtCtrls, ComCtrls;

type
  TfmCariAktar = class(TForm)
    DsListeYeni: TDataSource;
    DSListeDegisen: TDataSource;
    cxGrid2: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    Panel1: TPanel;
    edCasperZaman: TEdit;
    edUnityZaman: TEdit;
    bOku: TBitBtn;
    pnlDegisen: TPanel;
    pnlYeni: TPanel;
    bYaz: TBitBtn;
    lblyeni: TLabel;
    lbldegisen: TLabel;
    stcTopDegisen: TStaticText;
    stcTopYeni: TStaticText;
    PB: TProgressBar;
    stcAkDegisen: TStaticText;
    stcAkYeni: TStaticText;
    cxGrid1: TcxGrid;
    cxGridDBTableView2: TcxGridDBTableView;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn8: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    bManuelAktarim: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure bOkuClick(Sender: TObject);
    procedure bYazClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bManuelAktarimClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    strYeniCaption,strDegisenCaption,strAktarimCaption,strYeniPnlCaption,strDegisenPnlCaption : string;

    Procedure VeriOku;virtual;
    Procedure Veriyaz;virtual;
    Procedure KartOlustur;virtual;
    procedure Kapanis;virtual;
  end;

var
  fmCariAktar: TfmCariAktar;

implementation
      uses cls_TUnityCardAction,data,U_COMMONLOGO,Unity_CariAktarim;
{$R *.dfm}


procedure TfmCariAktar.FormCreate(Sender: TObject);
begin

  KartOlustur;

end;

procedure TfmCariAktar.bOkuClick(Sender: TObject);
begin

  VeriOku;

end;

procedure TfmCariAktar.bYazClick(Sender: TObject);
begin

  Veriyaz;

end;

procedure TfmCariAktar.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin

  Kapanis;
   
   action := caFree;
   fmCariAktar := nil;
end;

procedure TfmCariAktar.bManuelAktarimClick(Sender: TObject);
begin
{
if not assigned(CariKart) then exit;

if not assigned(Unity_CariAktarimF) then
   Unity_CariAktarimF:=tUnity_CariAktarimF.Create(self);
   
   Unity_CariAktarimF.CKod:=CariKart.HataCode;
   Unity_CariAktarimF.edCariKod.Text:= CariKart.HataCode;

   Unity_CariAktarimF.rbnCariKod.Checked:=true;
   Unity_CariAktarimF.bListeleClick(sender);
   Unity_CariAktarimF.showmodal; }

end;

procedure TfmCariAktar.FormShow(Sender: TObject);
begin
{
lblyeni.Caption:=strYeniCaption;
lbldegisen.Caption:=strDegisenCaption;
byaz.caption:=strAktarimCaption;
pnlYeni.Caption:=strYeniPnlCaption;
pnlDegisen.Caption:=strDegisenPnlCaption;}
end;

procedure TfmCariAktar.VeriOku;
begin
//Sabit kontrolleri Yaz

end;

procedure TfmCariAktar.Veriyaz;
begin
//Sabit kontrolleri Yaz

end;

procedure TfmCariAktar.KartOlustur;
begin
//Sabit kontrolleri Yaz

end;

procedure TfmCariAktar.Kapanis;
begin
//Sabit kontrolleri Yaz

end;

end.
